00100		TITLE NALF
00200		ENTRY NALF
00300	
00400	NALF:	0
00420		MOVE 0,@(16)
00460		JUMPGE .+4		;IF(I.GE.0)GO TO 20
00500		MOVE 1,[405004020100]	;  J='A'=405004020100
00600		SETO 2,			; M=-1
00700		JRST .+3		;GO TO 10
00900		MOVE 1,[201004020100]	;20  J=' '=201004020100
01000		MOVEI 2,=16		; M=16
01100		SUB 0,1			;10 NALF=(I-J)/536870912-M
01200		IDIV 0,[3777777777]	
01300		SUB 0,2
01400		JRA 16,1(16)
01500		END